perm filename TEST0.LST[CM,DEK] blob
sn#794118 filedate 1985-05-19 generic text, type T, neo UTF8
1) TEST0.MF[CM,DEK] and 2) TEST.MF[CM,DEK] 5-19-85 17:52 pages 1,1
**** File 1) TEST0.MF[CM,DEK]/1P/1L
1) COMMENT ā VALID 00008 PAGES
1) C REC PAGE DESCRIPTION
**** File 2) TEST.MF[CM,DEK]/1P/1L
2) COMMENT ā VALID 00018 PAGES
2) C REC PAGE DESCRIPTION
***************
**** File 1) TEST0.MF[CM,DEK]/1P/5L
1) C00004 00003 cmchar "Dollar sign"
1) C00007 00004 cmchar "The letter S"
1) C00012 00005
1) C00017 00006
1) C00021 00007
1) C00025 00008
1) C00029 ENDMK
1) Cā;
**** File 2) TEST.MF[CM,DEK]/1P/5L
2) C00006 00003 cmchar "Dollar sign"
2) C00010 00004 cmchar "The letter S"
2) C00014 00005 cmchar "The letter S"
2) C00019 00006
2) C00024 00007
2) C00028 00008
2) C00032 00009
2) C00039 00010
2) C00043 00011
2) C00048 00012
2) C00052 00013
2) C00057 00014
2) C00060 00015
2) C00063 00016
2) C00067 00017
2) C00068 00018
2) C00073 ENDMK
2) Cā;
***************
**** File 1) TEST0.MF[CM,DEK]/4P/10L
1) x3r-x3l=x6r-x6l=round(.5[slab,cap_ess])-fine;
1) ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r;
1) ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r;
1) interim superness:=more_super;
1) filldraw stroke super_arc.e(2,3) & z3e{down}
1) ..z4e---z5e..z6e{down} & super_arc.e(6,7); % main stroke
1) if serifs: penpos1(hair-fine,180); penpos8(hair-fine,180);
**** File 2) TEST.MF[CM,DEK]/4P/10L
2) x3r-x3l=x6r-x6l=round(.35[slab,cap_ess])-fine;
2) ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r);
2) ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r);
2) numeric tau; tau=max(.8,.20710678/(superness-.5));
2) filldraw stroke z2e{left}..tension atleast tau..z3e{down}
2) ..z4e---z5e..z6e{down}..tension atleast tau..z7e{left}; % main stroke
2) if serifs: penpos1(hair-fine,180); penpos8(hair-fine,180);
***************
**** File 1) TEST0.MF[CM,DEK]/4P/23L
1) x10=x1l; top y10=top y2l; x9=x8r; bot y9=0;
1) x1l-x1'=x8'-x8r=cap_curve-fine; y1'=y1; y8'=y8;
1) numeric t; t=xpart(upper_arc intersectiontimes(z10..z1'));
**** File 2) TEST.MF[CM,DEK]/4P/23L
2) x10=x1l; top y10=h; x9=x8r; bot y9=0;
2) x1l-x1'=x8'-x8r=cap_curve-tiny; y1'=y1; y8'=y8;
2) numeric t; t=xpart(upper_arc intersectiontimes(z10..z1'));
***************
**** File 1) TEST0.MF[CM,DEK]/8P/1L
**** File 2) TEST.MF[CM,DEK]/5P/1L
2) cmchar "The letter S";
2) beginchar("S",10u#,cap_height#,0);
2) italcorr cap_height#*slant-u#;
2) adjust_fit(0,0);
2) numeric theta; theta=90-angle(50u,h); slope:=-h/50u; % angle at middle
2) pickup fine.nib; penpos2(slab-round(vair_corr)-fine,-90);
2) penpos0(cap_ess-fine,theta); penpos7(slab-fine,-90);
2) x2+x7=2x0=w; x7-x2=if serifs: u else: 0 fi; top y2l=h+o; bot y7r=-o;
2) y0=.52h; lft x3l=round u; rt x6r=round(w-u);
2) x3r-x3l=x6r-x6l=round(.35[slab,cap_ess])-fine;
2) ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r);
2) ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r);
2) numeric tau; tau=max(.8,.20710678/(superness-.5));
2) filldraw stroke z2e{left}..tension atleast tau..z3e{down}
2) ..z4e---z5e..z6e{down}..tension atleast tau..z7e{left}; % main stroke
2) if serifs: penpos1(hair-fine,180); penpos8(hair-fine,180);
2) rt x1l=round(w-1.5u); lft x8r=round u;
2) bot y1=round 2/3h+1; top y8=round 1/3h-1;
2) filldraw stroke z1e{curl.5}....{left}z2e; % upper arc
2) filldraw stroke z7e{left}....z8e; % lower arc
2) path upper_arc, lower_arc;
2) upper_arc=z1{curl.5}....{left}z2; lower_arc=z7{left}....z8;
2) x10=x1l; top y10=h; x9=x8r; bot y9=0;
2) x1l-x1'=x8'-x8r=cap_curve-tiny; y1'=y1; y8'=y8;
2) numeric t; t=xpart(upper_arc intersectiontimes(z10..z1'));
2) filldraw z1l--z10--subpath(t,0) of upper_arc--cycle; % upper barb
2) t:=xpart(lower_arc intersectiontimes(z9..z8'));
2) filldraw z8r--z9--subpath(t,1) of lower_arc--cycle; % lower barb
2) else: penpos1(1.1flare-fine,-100); penpos8(1.2flare-fine,-90);
2) rt x1=round(w-1.75u); lft x8=round u;
2) top y1l=round .93h+o; bot y8r=round .1h-o;
2) filldraw stroke z1e..tension.9..{left}z2e; % upper arc and terminal
2) filldraw stroke z7e{left}..z8e; fi % lower arc and terminal
2) math_fit(0,.5ic#); penlabels(0,1,1',2,3,4,5,6,7,8,8',9,10); endchar;
***************